| Filename | (eval 1134)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
| Statements | Executed 4 statements in 2µs |
| Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | 1 | 300ns | my $context = shift || die "template sub called without context\n"; | ||
| 3 | 1 | 2µs | 1 | 2µs | my $stash = $context->stash; # spent 2µs making 1 call to Template::Context::stash |
| 4 | 1 | 300ns | my $output = ''; | ||
| 5 | 1 | 100ns | my $_tt_error; | ||
| 6 | |||||
| 7 | eval { BLOCK: { | ||||
| 8 | #line 1 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 9 | if (!($stash->get('intranetstylesheet'))) { | ||||
| 10 | $stash->set('intranetstylesheet', 'staff-global.css'); | ||||
| 11 | } | ||||
| 12 | |||||
| 13 | $output .= "\n"; | ||||
| 14 | #line 6 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 15 | if (($stash->get(['intranetstylesheet', 0, 'match', [ '^https?:|^\/' ]]))) { | ||||
| 16 | $output .= "\n <link rel=\"stylesheet\" type=\"text/css\" href=\""; | ||||
| 17 | #line 3 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 18 | $output .= $stash->get('intranetstylesheet'); | ||||
| 19 | $output .= "\" />\n"; | ||||
| 20 | } | ||||
| 21 | else { | ||||
| 22 | $output .= "\n <link rel=\"stylesheet\" type=\"text/css\" href=\""; | ||||
| 23 | #line 5 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 24 | $output .= $stash->get('themelang'); | ||||
| 25 | $output .= "/css/"; | ||||
| 26 | #line 5 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 27 | $output .= $stash->get('intranetstylesheet'); | ||||
| 28 | $output .= "\" />\n"; | ||||
| 29 | } | ||||
| 30 | |||||
| 31 | $output .= "\n\n<!-- local colors -->\n"; | ||||
| 32 | #line 15 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 33 | if (($stash->get('intranetcolorstylesheet'))) { | ||||
| 34 | $output .= "\n "; | ||||
| 35 | #line 14 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 36 | if (($stash->get(['intranetcolorstylesheet', 0, 'match', [ '^https?:|^\/' ]]))) { | ||||
| 37 | $output .= "\n <link rel=\"stylesheet\" type=\"text/css\" href=\""; | ||||
| 38 | #line 11 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 39 | $output .= $stash->get('intranetcolorstylesheet'); | ||||
| 40 | $output .= "\" />\n "; | ||||
| 41 | } | ||||
| 42 | else { | ||||
| 43 | $output .= "\n <link rel=\"stylesheet\" type=\"text/css\" href=\""; | ||||
| 44 | #line 13 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 45 | $output .= $stash->get('themelang'); | ||||
| 46 | $output .= "/css/"; | ||||
| 47 | #line 13 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranetstylesheet.inc" | ||||
| 48 | $output .= $stash->get('intranetcolorstylesheet'); | ||||
| 49 | $output .= "\" />\n "; | ||||
| 50 | } | ||||
| 51 | |||||
| 52 | $output .= "\n"; | ||||
| 53 | } | ||||
| 54 | |||||
| 55 | $output .= "\n"; | ||||
| 56 | } }; | ||||
| 57 | if ($@) { | ||||
| 58 | $_tt_error = $context->catch($@, \$output); | ||||
| 59 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 60 | } | ||||
| 61 | |||||
| 62 | return $output; | ||||
| 63 | } | ||||
| 64 | |||||
| 65 | ; |